38888 


ASAAOAAAOAAAOOOO 
AOOOIOOAOAAOOOOAO 
AOAAAAOAOAOOAONY 


SSSSSSSsss 


AAA AA Ht St tH A 
AAA St A 
AAAS AS a a st st se 


L 

LLLLLLLLLLLLLLL 
LLELLLLLLLLLELLLL 
LLLLLLLLLLLLLLL 


ad 


**F ILE**1D**INTPAR 


os 
— 
= 
= 


Ded fae Od Dat Pn Dano Ded Bee Ge bd Pa a Dae 


Bat hw Dt Be Bs Os be Bs Bs Os Bs Os fs 


tt tae 
ee ae 
bas bee 
bs eee 


SSSSSSSS 
SSSSSSSS 


nnwnn 
“nnwnn 


SSSSSS 
SSSSSS 


nannn 
nnnno 


SSSSSSSS 
SSSSSS3$5 


D dD 
DODDDDDD 
DDDDDDDD 


TTTTTTTTTT PPPPPPPP 
TTTTTTTTTT PPPPPPPP 
TT PP PP 
TT PP 
TT PP 
TT PP 
TT PPPPPP 
TT PPPPPPPP 
TT PP 
TT PP 
TT PP 
TT PP 
TT PP 
TT PP 
LL 
LL 
LL 
LL 
Li 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LLLLLLLLLL 


LLLLLELLLLL 


AAAAAA 
AAAAAA 
AA AA 
AA hh 
AA AA 
AA AR 
AA AA 
AB AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA AA 
AR AA 
Aa AA 
Aa AA 
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REQU file for coer Intermediate data t 
rite NTPAR.SDL Edit: Ser 2001 _ 


SHCA SSSAASHSASAAAAAAAAAAAAAAAAAAAAAAAAEAAAARAAEAEARAAEAEEEAAETAKEAAAEEEEEAES 


COPYRIGHT (oo 1978 1980, 1982, 1984 8 
DIGI TAL Equi T CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED eee A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ceo Sate ET La TERMS OF SUCH Tints a AND WITH THE 
ION OF T OPYRIGHT NOTICE. aut soft WARE OR ANY OTHER 


® 
® 
* t 
o ® 
® & 
® te 
& * 
? ® 
* ® 
e & 
* OTHER PERSON. TITLE T AND OWNERSHIP” OF THE SOFTWARE IS HERESY * 
* TRANSFERRED. * 
oy ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
“ AND SHOULD NOT : 
t fe 
& * 
. ® 
* sa 
® t 
® ® 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FORTHE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SHSSSSSSAAAAASAAAAAAAAAAAAAAARAAAAAAAAAAAAAA CAAA AAEREEAEAETERETEAEEEEEEEE 


eh A history: 
- original DGP 29-Jan-79 
1-002 - oes see d tg reflect E Eco Be COBOL Intermediate Data Type 


ug- 
hae" copyright hte ey OoeL 11-MAR-1980 
3-087 = - Add copyright SBL 23-Aug-1982 


+¢ 


The COBOL compiler allocates twelve bytes for an intermediate 
temporary value, which are arranged as follows: 


¢uocereecooceaena + 


i INTSW_I_EXP ; : Intermediate temp 


$eocccesosccecon$ 


INTSP_I_FRACT: 


@ coceccce 


eee ewan awos ¢ 


The fraction is a pack 18-digit number. The fraction is normalized 
with the agnor per dig t non-zero yatese the whole n t. js aero). 
The e is kept in true he ‘ie exponent is - the 
number is th recor yee operand wus se the exponent — :” int 
range from + decimal. 


Define the symbols which are used to access and manipulate the 
intermediate data type. 


MODULE SINTDEF ; 
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omg mf INTSR DEF STRUCTURE PREFIX INTS; scent ithe 
“FRacT D Dec MAL PREEISION (18,0); ¢ Fraction mint: 


CONSTANT I_FRACT_D EQUALS | poneeh of fraction field in digits 
nt Lt “FRACT-L EQUALS 10: Length of fraction field in bytes 
CONST wnt “EXP_H ar’ Max value of exponent 

CONSTAN 1 |- “EXP-LO EQUA 5 93 Min value of exponent 

CONSTANT I_EXP_RES FQuATS -32768; Exponent value for ‘reserved’ 
CONSTANT I“LEN™ EQUALS INTSK_I_FRACT_L#2; { Length of number in bytes 


END INTSR_DEF; 
END_MODULE SINTDEF; 


= 


SE | DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFID 


I 
FIDENTIAL AND PROPRIETARY 


WK) ae eT e 


